home *** CD-ROM | disk | FTP | other *** search
/ Amiga Games: Greatest Hits 1996 / Amiga Games: Greatest Hits 1996.iso / rexx / megacookie.mbrx < prev    next >
Text File  |  1996-07-10  |  2KB  |  53 lines
  1. /*
  2.                        MegaCookie ©1996 Eden Software
  3.                           Written By Edward Farrow
  4. */
  5. /*
  6. MegaCookie Is A Fortune Cookie Program For MegaBook 3.0 
  7. This Is MBWare, It Is For Use With MegaBook 3.0 And Can Only Be Distributed
  8. Within The MegaBook 3 Archive In An Unchanged Form! I Thank You =o)
  9. */
  10.  
  11. /* MegaBook Path Incase Its Not Loaded */
  12. MBPath = 'MegaBook3:MegaBook'
  13.  
  14. /* Line Feed Char. Makes A New Line In Requestors (Ta Tom!) */
  15. LF='0a'x
  16.  
  17. /* ' And " Chars. Makes Rexx Scripts Allow ' And " Symbols */
  18. SQ='"'
  19. DQ="'"
  20.  
  21. PARSE ARG LINE
  22.  
  23. /* Hunt Down Mr MegaBook And Use It! =o) */
  24. IF ~show('P', 'MEGABOOK.01') THEN DO
  25.    ADDRESS COMMAND 'run >nil: 'MBPath
  26.       DO 5 WHILE ~show('P', 'MEGABOOK.01')
  27.          'SYS:REXXC/waitforport MEGABOOK.01'
  28.       END
  29.    END
  30.  
  31. ADDRESS 'MEGABOOK.01'
  32. OPTIONS RESULTS
  33.  
  34. REQUEST 'MegaCookie v1.00 ©1996 Eden Software'LF'Written By Edward Farrow'LF'-=-=-=-=-=-=-=-=-=-=-=-=-'LF'Fortune Cookie Program' GADS '_Yupperz'
  35.  
  36. /* Cookie Picker */
  37. Cookie.1 = "A women without a man is like"LF"a fish without a bicycle"
  38. Cookie.2 = "Babies can"SQ"t walk because"LF"their legs aren"SQ"t long enough"LF"to reach the ground"
  39. Cookie.3 = "Having children will turn you"LF"into a parent (shudder)"
  40. Cookie.4 = "This fortune will self destruct"LF"in 30 seconds..."
  41. Cookie.5 = "Man who eats jelly beans farts"LF"in techni-color"
  42. Cookie.6 = "I.B.M: Inferior But Marketable"LF"P.C: Peice "DQ"Of"DQ" Crap"
  43. Cookie.7 = "9 out of 10 cats prefer hamsters"
  44. Cookie.8 = "A nuclear war can ruin your whole day"
  45. Cookie.9 = "A penny saved is ridiculous!"
  46.    CALL Randu(time('s'))
  47.    picked = RANDOM(1,9)
  48.    COOKIE = Cookie.picked
  49.  
  50. /* Display Cookie */
  51. REQUEST ''COOKIE'' GADS '_ho ho ho'
  52. EXIT
  53.